home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 01 / e-compiler / e-compiler.ampk / E-Compiler / Sources / Examples / ColourScreen.e < prev    next >
Encoding:
Text File  |  1995-06-01  |  294 b   |  14 lines
  1. /* _Very_ simple customscreen-demo */
  2.  
  3. PROC main()
  4.   DEF screen,sx,sy
  5.   IF screen:=OpenS(321,257,5,0,'Amiga E Screen')
  6.     LOOP
  7.       FOR sx:=0 TO 320
  8.         FOR sy:=0 TO 256 DO Plot(sx,sy,sx*sy+1)
  9.         IF Mouse()=1 THEN RETURN CloseS(screen) AND 0
  10.       ENDFOR
  11.     ENDLOOP
  12.   ENDIF
  13. ENDPROC
  14.